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3700 PRINT "<un* seule réponse sans séparateur >" 
3710 FLAQ-liCALL COLORI "0Wb"> 
3720 RETURN 

3730 ! -TRAITEMENT REPONSE DOUBLE 

3740 IF POSI-0 THEN GOSUB 3820 i RETURN 

3730 RP1*-SEB*(RP*,1,P0SI-1) 

3760 l_l=LEN<RPl*) :L-LEN(RP*> 

3770 REP1*-RP1* 

3760 REP1-VAL(REP1») 

3790 RP2*-SEG»(RP*,P0SI+1,L-<L1+1)) 

3800 REP2-VAL(RP2*> 

3610 RETURN 

3B20 ! FLAQ ERREUR 

3B30 CALL COLOR C OR I "): LOCATE (2,7) 
3840 PRINT "<2 reposes séparées par / >" 
3830 CALL COLOR ("OWb") iFLAG-1 
3B60 RETURN 

-%B70 ! 

38BO DATA 6,90,7,83,8,86,9,88, 10,90, 1 i ,92, 12,95, 13, 100, 14, 105, 15, 107, 16, 1 10 
3890 DATA 17,113,18,117,19,119.20,121,21.123.22.123.23.128.24,130,25,132.26,: 
3900 DATA 27,133,28,136,29,137,30,138,31,139,32,140,33,141,34,142,35.145 

3910 ! DEFINITION CARACTERES 

3920 CALL CHAR(97, "00183C7EFFFF7E3ClBOO M > 

3930 CALL CHAR < 98, "C0C0C0C0C0C0C0C0C0C0 H > 

3940 CALL CHAR (99, "OOOOOOOOOOOOOOOOFFFF") 

3930 CALL CHARdOO, "03030303030303030303") 

3960 CALL CHAR ( 101 , "OOOOOOOOOOOOOOOOOOOO" ) 

3970 CALL CHAR (102, "COCOCOCOFFFFCOCOCOCO" ) 

3980 CALL CHAR < 103, "OOOOOOOOFFFFOOOOOOOO") 

3990 CALL CHAR<104, "03030303FFFF03030303") 

4000 CALL CHARQ05,"FFFF0O0OOOO0000O0OO0 u > 

4010 RETURN 

4020 SUB PRESENTATION 

4030 CALL COLOR ("OMLHI") 

4040 LOCATE (12, 11) iPRINT "TTEESSTT DDEE QGUI" 

4030 LOCATE (13,11) i PRINT "TTEESSTT DDEE ODII" 

4060 SUBEND 

4070 SUB CADRE<XH,YH,LH,HH,AA*,BB*,CC*,DD*,EE*,FF*,GB*) 

4080 LOCATE (XH.YH) iPRINT AA«<RPT*<BB*,LH)«,CC* 

4090 FOR Z=l TO HH: LOCATE (XH+Z.YH) 

4100 PRINT EE*ï<RPT*(DD*,LH)îeEE*iNEXT Z 

4110 LOCATE <XH+HH,YH):PRINT FF*&RPT*(BB*,LH) M3B* 

4120 SUBEND 
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jel est votre Ql ? Vous aurez la réponse en 
tapant le programme ci-après. En réalisant les 
tests, vous obtiendrez une évaluation assez juste 
de votre quotient intellectuel. Ces tests ne 
remplacent pas bien sûr une véritable analyse de 
Ql réalisée par des psychologues. 

Le programme 

Vous aurez à résoudre 4 types d'exercices: 
trouver un nombre continuant une série, exclure 
un nombre n'appartenant pas à une série, trouver 
une valeur de dominos rangés en long et le môme 
exercice avec des dominos en colonne. Les 
différentes séries dans ce programme ne sont pas 
générées aléatoirement et sont dépendantes de 
données contenues sous forme de DATAS. 

Le test est composé de quarante exercices. Si 
vous répondez juste ( très difficle à réaliser ) aux 
quarante questions, vous obtiendrez le Ql maximal 
( au dessus de 145 ). Dans ce cas précis, vous 
êtes un génie qui s'ignore. Si vous n'obtenez 



aucune réponse exacte ( Il faut le faire...) , votre Ql 
est voisin de 80. Dans ce cas, allez consulter un 
psychologue, ce n'est pas normal. 

Le test est chronométré. Il faut le réaliser en moins 
de 46 minutes, et, croyez-moi, vous aurez juste 
assez de temps pour répondre. En effet, si les 
premiers exercices sont simples, la difficulté 
augmente progressivement pour atteindre un 
niveau digne des meilleurs casse-têtes. Les 
calculs que vous devrez effectuer sont simples en 
général. Ce qui compte, c'est la manière dont vous 
parvenez au résultat. 

Les réponses que vous fournirez peuvent se 
présenter sous deux formes: une forme simple, 
c'est-à-dire un nombre, et une forme composée, 
c'est-à-dire deux nombres séparés par la barre de 
fraction (/): 3/5. 

Si vous ne trouvez pas la réponse assez 
rapidement, vous pouvez passer à l'exercice 
suivant en appuyant directement sur la touche [ 
ENVOI ] sans écrire de nombres. 
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EXELDIRECT * 93 65 46 40 



Commandez par : 

TELEX 

461355 F 



TELEPHONE 

Appelez notre service 
commande au 
93165146140 



EXELTELEX 

De 18h à9h 

Composez le 93165146140 

avec votre Minitel 

ou Exeltel, au sifflement 

de la porteuse, appuyez 

sur Connexion / Fin 



LE COURRIER 

Remplissez le bon 

de commande ci-dessoui 

et adressez le à 

EXELVISION S.A. 

Place Joseph Bermond 

06560 VALBONNE 



BON DE COMMANDE 



LIVRAISON 24/48 H 

Pour tous les envois de moins de 
15 kg, vous pouvez compter sur le 
service 24/48 heures d'EXELDI- 
RECT, ultra-rapide et fiable. Les 
frais d'expédition forfaitaires d'élè- 
à 150 F. 



Code postal : 



Désignation des articles 


Quantité 


Prix TTC 


Montant 














































































Total TTC . . . 





*&>% 
*?$#* 



MODE DE PAIEMENT! 

- Chèque à la comnujf 

- Contre- rembourse! 



Nota tous nos produits sont expédiés Franco de port, en cas de contre-remboursement, il sera facturé en sus 23.70 'F TTC/^ 
tion postale (poids inférieur à 5kg), 58F HT + 1% Ad valorem pour expédition supérieure à 5kg. 
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es populations naissent et meurent. C'est la loi 
de la vie. Nous vous proposons dans cet article de 
reproduire in vitro ( in ordinatoro serait plus juste ) 
la naissance, le développement ou la mort 
d'organismes. Ces organismes seront 
représentés par des signes sur l'écran de votre 
ordinateur. Pour calculer et prévoir l'évolution de 
ces organismes nous utiliserons les lois de 
Conway, un universitaire britannique. 

A l'origine, le jeu de la vie se jouait sur un damier 
avec des pions de couleurs différentes. Les lois 
génétiques de Conway appliquées à cet 
environnement sont les suivantes: 

Survies: chaque pion ayant deux ou trois pions 
voisins survit pour la génération suivante. 

Morts: chaque pion ayant quatre voisins ou plus 
meurt ( est enlevé du damier ) de surpeuplement. 
Chaque pion ayant un seul voisin ou pas du tout 
meurt d'isolation. 

Naissances: Chaque case vide adjacente à trois 
cases comportant un élément ( ni plus ni moins ) 
engendre un nouvel élément. 

Les naissances et les morts des organismes se 
produisent de façon simultanée. 

Les structures changeantes qu'adopte une 
population définie au départ sont toujours 
surprenantes. Certaines ont tendance à se 
développer autour d'un axe de symétrie. Lorsque 
cet axe de symétrie apparaît, la population se 
maintient autour de cet axe. 

Une population donnée peut disparaître 
totalement au bout de plusieurs générations, se 
maintenir dans une structure stable sans cesse 
renouvelée ou prendre une structure finie. 

Le déroulement du programme 

Au départ du programme, vous devez introduire à 
l'aide du clavier un type de population. Vous 
taperez le signe # ou la barre d'espace. 



Exemple: 

Entrez votre configuration: ### [ENVOI] 
Entrez votre configuration: # # [ENVOI] 
Entrez votre configuration:* » [ ENVOI ] 
Entrez votre configuration: [ ENVOI] 

Pour obtenir cette configuration, tapez: 

2 fois la barre d'espace et 3 fois le signe # 

1 fois la barre d'espace, 1 fois le signe #, 2 fois la 

barre d'espace, une fois le signe #. 

1 fois le signe #, trois fois la barre d'espace, une 

fois le signe #. 

Appuyez directement sur [ ENVOI ]. 

Laissez fonctionner l'ordinateur quelques minutes 

et vous obtiendrez les motifs géométriques 

suivants: 



*** Générât î on : 




* * 




* * Popul at i on : 7 




* Génération: 1 




•« *# Population: 8 




Génération: 8 




***** Population: 23 

•* ##■ 




** ** 




#* *# 




# * 




Génération: 

*** 


12 


* * * Population: 


42 


# * » 




******* 




*# * * ** 




** * * ** 




*** *** 
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Génération: 14 
Population; 39 



*** ** 

*** *** * 
» # # *# 



Génération: 17 



#♦# 

* # 
* * * *** Population: 46 

# #»* * ** 



#* *• 

* 
*** 



Génération: 16 
Population: 48 



##* 

# ** 

** ** 

*#** 



*** 

*** 

********* 

** * * # * * ** 

* * # # # • * 

** ***** * * 

****** 



Génération: 20 
Popul at i on : 61 



** 



***** 



* * 

** *** *• Génération: 22 

* ** * * ** * 
***** * * ***** Population: 61 



*+ 



** 



** 
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DIH A(20,40> ,8«<20> 

Xl-liYl-ltX2-20iY2-40 

CLS "Wbb"iCAU_ COLORC'OWb") 

LOCATE <0,1>IPRINT RPTSC -,40) 

Ol 

LOCATE (Ctl)iPRINT "Entm votr. configuration! " ( 

ACCEPT BEEP VALIDATEC" #/ ■ ) NULL < -V" ) ,B*(C) 

IF B*(C)-"/" THEN BOTD 260 



NEXT X 

Xl-ll-INTIC/2) 

Yl-20-INT<L/2> 

FOR X-l TOC 

FOR Y"i TO LEN(B*( 

IF SEG*<B*<X>,Y,l; 

NEXT Y 
NEXT X 

PRINTiPRINTiPRINT 
PRINT "Génération 






4O0 
410 

420 X3-2OiY3-40!X4-1iY. 

430 G-B+l 

440 FOR K-! 

450 FOR X-Xl TD X2 

460 PRINT 

470 FOR Y-Yl TO Y2 

480 IF A<X,Y>-2 THEN A 
'3 THEN A 



490 
500 
510 
520 
530 
540 
550 
560 
570 
530 
590 
600 
610 
620 
630 
640 
6SO 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 

eio 

. ■ 



G,"'Populati 
liP-0 
NTiNEXT X 



THEN PRINT ' 



[F A<> 



THEN 570 



PRINT TAB(Y>t "•"! 

IF X<X3 THEN X3-X 

IF X>X4 THEN X4-X 

IF Y<Y3 THEN Y3-Y 

IF Y>Y4 THEN Y4-Y 

NEXT Y 

NEXT X 

FOR X-X2+1 TO 20i PRINT: NEXT X 

X 1 -X3i X2-X4I Yl"Y3l Y2-Y4 

IF Xl<3 THEN Xl-3iI9— 1 

IF X2>20 THEN X2-20i 19—1 

IF YK3 THEN Vl»3: 19— 1 

IF Y2>3B THEN Y2-3Bi 19— 1 

P-0 

FDR X-Xl-1 TO X2+1 

FOR Y-Yl-1 TO Y2+1 

00 

FOR I=X-1 TD X+l 

FOR J-Y-l TO Y+l 

IF A(I,J)'l OR A(I,J)-2 THEN C-C+l 

NEXT J 

NEXT I 

IF A<X,Y)-0 THEN 780 

IF C<3 OR C>4 THEN AIX, Y) -2i SOTO 770 

P-P+l 

GOTO 790 

IF C-3 THEN A(X,Y>-3iP«P+I 

NEXT Y 

NEXT X 
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Ce jeu est une variante du programme précédent. 
Le jeu se joue à deux et le but est de développer 
une population d'éléments et d'empêcher son 
adversaire d'étendre sa population. Pour pouvoir 
jouer avec ce jeu, il faut bien connaître les lois de 
Conway. 

Présentation du Jeu 

"Vie à deux" se joue sur un damier de 5 x 5 cases. 
Au début de la partie, chaque joueur place une 
population de 3 éléments sur le damier. Si les 
coordonnées des pions doublonnent, le 
programme redemande une saisie. Les 
coordonnées des pions doivent être données 
sous la forme X=, Y=. X représente l'axe horizontal, 
Y représente l'axe vertical. Une fois les 
coordonnées de pions données, le programme 
affiche les populations initiales avant l'application 
des lois de transformation. Le joueur numéro 1 
aura les pions rouges, le joueur numéro 2 aura les 
pions jaunes. Les lois de transformation des 
populations sont ensuite appliquées et ces 
dernières évoluent devant vos yeux. Après la 
transformation, un nouveau géotype est inscrit sur 
le damier. Chaque joueur introduit à tour de rôle 
un nouvel élément. En fonction de la statégie 
envisagée, cet élément aura pour fonction de 
bloquer la population de l'adversaire ou accroître la 
population de son camp. 

Les différentes règles appliquées 

Pour pouvoir jouer correctement à "Vie à deux", 
vous devez bien retenir les éléments suivants: 

















• 












© 








o 









































o 


o 

























Naissance d'un élément 

Lorsqu'une case est entourée de trois éléments, 
celle-ci devient une cellule de naissance. Ce 
nouvel élément appartiendra au joueur qui 
possède le plus grand nombre d'éléments autour 
de la cellule. 



Mort causée par Isolement 

Comme dans le jeu de la vie ( programme 
précédent ), les éléments peuvent mourir 
d'isolement. Cette mort se produit lorsqu'un 
élément n'est pas en contact avec un ou plusieurs 
éléments. Si nous regardons le tableau ci-dessus, 
nous pouvons déduire que deux éléments vont 
disparaître. 



1 


2 


3 


4 


5 


o 








O 




























• 


• 








• 


O 
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Les morts par surpopulation 

De la même manière que dans le programme 
précédent, un élément peut s'éteindre de 
surpopulation. Ceette mort survient torsq'un 
élément est entouré par au moins quatre 

éléments. 



1 


2 


3 


4 


5 
















• 


• 






O 


O 


• 








o 

















Dans le cas présenté ci-dessus, un élément au 
moins va s'éteindre de surpopulation. C'est 
l'élément donné par les coordonnées X=3, Y=3. 
D'autres changements vont également se 
produire. Pouvez-vous devinée lesquels ? Pour 
trouver les nouvelles générations, il est préférable 
de prendre un papier et un crayon et d'appliquer 
les règles de transformation. 



1 


2 


3 


4 


5 














O 




• 






o 










o 


o 


o 















C'est relativement complexe au début. En effet, la 
disparition d'un élément entraîne généralement la 
formation d'autres éléments adjacents. Ainsi, 
l'élément ( 3,3 ) lorsqu'il meurt libère une cellule 
de naissance qui va être propagée. 

Les différentes stratégies de jeu 

Il n'existe pas à proprement parler de stratégies de 
jeu dans le sens où on l'entend. Toutefois 
certaines recommandations doivent être 
appliquées. 

La phase d'enoaoement: 

C'est une phase très importante du jeu. Le joueur 
qui engage a le choix entre plusieurs 
configurations de départ. Il est souhaitable de 
grouper les pions pour éviter dans un premier 
temps les phénomènes d'isolement. Ainsi, il ne 
faut jamais jouer les cases extrêmes: (5,5) (5,1) ou 
(1,5) car, à moins que le deuxième joueur ne joue 
ses pions dans des cases environnantes, tes 
éléments du premier joueur succomberont. 

Il est préférable de jouer une configuration 
suivante: ( 3,3 ) - { 2, 3 ) - ( 3,4 ) ou une structure en 
ligne. Mais rien n'est joué d'avance, la position des 
pions du deuxième joueur sont déterminantes 
pour la suite des événements. Avec un peu de 
pratique vous deviendrez excellent à ce jeu. 
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100 ' «#**##tt##*###**tt*«*##***#**N#**##*« 

110 !tt VIE A DEUX * 

120 ! «**#««##***#**#########«*#*#*##«*** 

130 DIM N<6,6) ,K<18> ,A<16> ,X(2> ,Y<2> 

140 DATA 3,102,103,120.130.121,112,111,12 

150 DATA 21,30.1020.1030,1011,1021,1003,1002,1012 

160 CLS "WBB"iCALL COLORCOWb") iLOCATE (0,1)iPR1NT RPT*(" ' 

170 RESTDRE 140 

ISO FOR M-l TO lBlREAD K(M)tNEXT CI 

190 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1.1,1.1 

2O0 RESTDRE 190 

210 FOR 01=1 TO 16iREAD A<01)iNEXT 01 

230 •# INTRODUCTION DES ELEMENTS • 

240 ! **##«#**#*##**#*#*#*#*»*##*#**##*** 

250 GOSUB 1330 

260 GOTO 810 

270 FOR J-l TO 5 

2S0 FOR KK-1 TO 5 

290 IF N(J,KK>>99 THEN GOSUB 460 

300 NEXT KK 

310 NEXT J 

320 KK-OiM2=OiM3-0 

330 ! BREAK 

340 FOR J=l TO 5iF0R KK-1 TO 5 

350 IF N(J,KK)<>0 THEN GOSUB 510 

360 NEXT KK 

370 NEXT J 

450 RETURN 

460 BB-1:IF N<J,KK>>999 THEN BB-10 

470 FOR 01-1 TO 15 STEP 2 

460 N(J+A<01> ,KK+A(01+1))-N(J+A(01) ,KK+A<01+1 ) >+B8 

490 NEXT 01 

500 RETURN 

510 IF NCJ.KKK3 THEN 740 

520 FOR 01-1 TO 18 

530 IF N(J,KK)=K(01)THEN 560 

540 NEXT 01 

550 GOTO 740 

560 IF 01 >9 THEN 650 

570 CALL COLORClRb*) 

580 IF KK=1 THEN POSI-6 

590 IF KK=2 THEN POSI-10 

600 IF KK-3 THEN POSI-14 

610 IF KK-4 THEN P0SI-1B 

620 IF KK-5 THEN POSI-22 

630 N!J,KK)-100:M2=M2+liL0CATE ( J*3,P0SI) iPRINT CHR*(90> 

640 RETURN 

650 ! 

660 IF KK-1 THEN POSI-6 

670 IF KK-2 THEN POSI-10 

680 IF KK-3 THEN POSI-14 

690 IF KK-4 THEN P0SI-1S 

700 IF KK-5 THEN POSI-22 

710 CALL COLORClYb") 

720 N(J,KK)=10OO:M3=M3+l:L0CATE <J«3,P0SI ) aPRINT CHR*(91) 

730 RETURN 

740 IF KK-1 THEN POSI-6 

750 IF KK-2 THEN POSI-10 

760 IF KK-3 THEN POSI-14 

770 IF KK=4 THEN POSI-18 
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.11>:NEXT POSI 



780 IF KK-5 THEN PDSI-22 

790 N(J,KK)«0:CALL COLORC'lWb") iLOCATE (J»3,P0SI) iPRINT CHR*(S9) 

SOO CALL COLORCOWB") t RETURN 

eio '##*#*##«***#*##*##*###*##*######## 

820 !# POSE DES PIONS * 

830 ' ####*#######*#######«#«###«##*#### 
840 M2=0:M3=0 
850 FOR J=l TO S 
860 FOR KK=1 TO 5 
870 N(J,KK)=0 
880 NEXT KK 
890 NEXT J 

900 ! DEBUT 

910 CALL COLDRC'OGB") 

920 FOR POSI-0 TO 16:L0CATE (POSI ,25) rPRINT RPT*(" ",16>:NEXT 

930 FOR PDSI=17 TD 21:L0CATE (POSI , 1) :PRINT RPT*(" ",40) i NEXT 

940 GOSUB 20B0 

950 FOR B=I TO 2:P1=3:IF B=2 THEN Pl=30 

960 ! 

970 GOSUB 2240 

980 FOR Kl = l TO 3 : GOSUB 1170 

990 N<X(B> ,Y(B))=P1:NEXT KljNEXT BiB=2 

ÎOOO FOR POSI=12 TO 15;LOCATE (POSI ,29) iPRINT RPT*C 

1010 ! AFFICHAGE DES ELEMENTS 

1020 ! 

1030 IF B>2 THEN B=2 

1040 GOSUB 320 

1050 GOSUB 270 

1060 IF M2=0 THEN IF M3=0 THEN 1100 

1070 IF M3=0 THEN B=1:G0T0 1110 

1080 IF M2=<0 THEN 8=2: GOTO 1110 

1090 GOTO 1120 

IlOO GOSUB 2530ÎPARTIE NULLE 

1110 GOSUB 2600:G0T0 220 

1120 FOR B=l TO 2: GOSUB 2720: GOSUB 1170 

1130 IF B=99 THEN 1050 

114Û NEXT B 

1150 N(X(1) ,Y(1))=100:N(XC2) ,Y(2))=1000 

1160 GOTO 1050 

1170 GOSUB 2360 

1180 ! 

1190 IF X(B)<=5 THEN IF X (B) >0 THEN 1210 

1200 GOTO 1290 

1210 IF Y(B)<=5 THEN IF Y (B) >0 THEN 1230 

1220 GOTO 1290 

1230 IF N(X!B) ,Y(B))<>0 THEN 1290 

1240 IF BM THEN RETURN 

1250 IF X(1)=X(2)THEN IF Y (1 )=Y (2) THEN GOSUB 1270 

1260 RETURN 

1270 ÎGOSUB 32767sG0TD 1170 

1280 N(X(B)+1,Y(B)+1)=0:B=99:RETURN 

1290 GOSUB 2840 

1300 ! 

1310 GOTO 1170 

1320 END 

1330 ! ##*#«###«##«#*##*«####*#«########* 

1340 !#DEFINITION GENERATEUR CARACTERES* 

1 350 .' ########*###############*####*###« 

1360 CALL COLORC'lWb") 
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1370 CALL CHAR(65,"FFFFC0C0C0C0C0COCOC0"> 
1380 CALL CHAR<66,"FFFF0OO0O0O00OOO0OO0") 
1390 CALL CHAR<67,"FFFF0101010101010101") 
1400 CALL CHAR(6a,"FFFF8080BOaoa080B090") 
1410 CALL CHAR(69,"FFFF0303030303030303"> 
1420 CALL CHAR(7O,-C0COCOCOC0COCOCOC0C0") 
1430 CALL CHAR (71, "01010101010101010101") 
1440 CALL CHAR(72,"B0808O8Oaoa0B0BO9080"> 
1450 CALL CHAR<73, "03030303030303030303") 
1460 CALL CHAR(74,-COCOCOC0COCOCOC0COFF") 
1470 CALL CHAR(75,"O0OO00OO0O000O00O0FF") 
1480 CALL CHAR(76,"010101010101010101FF") 
1490 CALL CHAR<77,"B0BQ80B0B0B0B08080FF") 
1500 CALL CHAR(7B,"030303030303030303FF"Ï 
1510 CALL CHAR(79,"FFCOCOCOCOCOC0C0COCO") 
1520 CALL CHAR(aO,"FF00OOOO0O0O00O0OOO0") 
1530 CALL CHAR(81,"FF010101010101010101") 
1540 CALL CHAR(82,"FF808080a080B08080BO"> 
1550 CALL CHAR<B3,"FF030303030303030303"> 
1560 CALL CHAR(B4,"C0C0COC0C0C0C0C0FFFF") 
1570 CALL CHAR(85,"0OOO0OO0OOOO0OOOFFFF") 
1580 CALL CHAR(B6,"0101010101010101FFFF-1 
1590 CALL CHAR(B7,"80B080908080B0B0FFFF") 
1600 CALL CHAR(S8,"0303030303030303FFFF-) 
1610 CALL CHAR<a9,"00000000000000000000") 
1620 CALL CHAR(90,"FFFFFFFFFFFFFFFFFFFF") 
1630 CALL CHAR(90,"ASA57E7E3C3C3C3C7EFF"> 
1640 CALL CHAR(91,"183C7E99FFE7E7FFFFFF") 
1 650 ! ######«###############«####**#•*#* 
1660 !# TABLEAU DE JEU » 

1670 ! *##############**#########*#**#*** 
1680 DATA ABBCDBBCDBBCDBBCDBBE 
1690 DATA FYY6HYYGHYYBHYYBHVYI 
1700 DATA JKKLMKKLMKKLMKKLMKKN 
1710 DATA DPPQRPPDRPPQRPPQRPPS 
1720 DATA TUUVUUUVWUUVHUUVWUUX 
1730 ! 

1740 RESTORE 1680 
1750 READ A*,B*,C*,D*tE* 

1760 i AFFICHAGE CADRE JEU 

1770 LDCATE (2,5):PRINT A* 

1780 LOCATE (3,5):PRINT B* 

1790 LOCATE (4,5)sPRINT C* 

180O LOCATE <5,5):PRINT D* 

1810 LDCATE (6,5):PRINT B* 

1820 LOCATE (7,5):PRINT C* 

1B30 LOCATE <8,5):PRINT D* 

1840 LDCATE (9,5):PRINT B* 

1B50 LOCATE (10,5)jPRINT C* 

1860 LOCATE (11,5>:PRINT D* 

1870 LOCATE 112,5) :PRINT B* 

1880 LOCATE (13,5):PRINT C* 

1890 LOCATE (14,5)iPRINT D* 

1900 LOCATE (15,5)ïPRINT B* 

1910 LOCATE (16,5>iPRINT E* 

1920 ! ##################*#####*##******* 

1930 !# AFFICHAGE DES COORDONNEES # 

1940 ! #############**#####************** 

1950 CALL COLORC'OCB") 
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o o__ 

__0_« 
• • m 



s LOCATE 



,1):PRINT 



i960 LOCATE (1,5):PRINT RPT*(" ",20) 

1970 LQCATE (0,2)jPRINT RPT*<" ",23) 

I9B0 C00RX=1 

1990 FOR P0SI»5 TO 23 STEP 4 

2000 LOCATE ( 1 ,PDSI ) îPRINT COORX 

2010 C00RX=C00RX+1 

2O20 NEXT 

2030 FOR 1=0 TO 16îL0CATE <I,2):PRINT 

204O C00RY=1 

2050 FOR 1=3 TO là STEP 3:LDCATE (I,2)iPRINT COORY:CODRY=COORY+l :NEXT I 

2060 r 

2070 RETURN 

2080 ! **#####«*################*«####*## 

2090 !# TRACE DES CARDRES * 

2100 !##*#######*##########«*########### 

2110 CALL COLORC'OGB") 

2120 XH=0iYH»28iLH=ll:HH=5 

2 1 30 AA*=CHR* ( 9 ) : BB*=CHR* < 4 > i CC*=CHR* ( 6 ) : DD*= » " : EE*«CHR* ( 3 ) > FF*=CHR* ( 8 ) 

2140 GG*=CHR*(7> 

2150 CALL CADRE(XH,YH,LH,HH,AA»,BB*,CC*,DD*,EE*,FF*,GG*> 

2160 ! 

2170 XH=ll:YH«28jLH»llaHH=5 

2180 CALL COLORC'ORB") 

2190 CALL CADRE<XH,YH,LH,HH,AA*,BB*,CC*,DD*,EES,FF*,GG») 

2200 XH=1B;YH=1.-LH=38:HH=3 

2210 CALL COLORC'OMB") 

2220 CALL CADRE1XH,YH,LH,HH, AA*,BB*,CC*,DD*,EE*,FF*,GG*) 

2230 RETURN 

2240 ! #######################«###*###### 

2250 !# AFFICHAGE JOUEUR * 

2260 ! #######*##*#*#######*########*###« 

2270 CALL COLDR ( " OGBH " 1 

Joueur: 



22B0 LOCATE <2,30)îPRINT 

2290 LOCATE (3,30)iPRINT 

2300 CALL COLORC'OCB") 

2310 LOCATE (6,2B):PRINT " Donnez 1a ■ 

2320 LOCATE (7,2B):PRINT " position de" 

2330 LOCATE (8,28>:PRINT " 3 éléments" 

2340 LOCATE (9,28):PRINT " vivants ' 

2350 RETURN 

2360 • tt#*tt###ttttHM##tt#*ttH#tt#####«*###HHtt# 

2370 !# INTRODUCTION DES ELEMENTS # 

23B0 ! #######*###« « «####*### ##*### #####« 

2390 CALL COLORC'ORB") 

2400 LOCATE (1 1+K1 ,30) : PRINT "X = "; 

2410 ACCEPT BEEP VALIDATEC12345")NULL (O)SIZEU ) , Y(B) 

2415 IF Y(B)=0 THEN 2400 

2420 LOCATE Cl I+Kl ,35) iPRINT "Y-") 

2430 ACCEPT BEEP VALIDATEC 12345") SIZE(1)NULL (0) ,X (B) 

2435 IF X(B)-0 THEN 2420 

2440 RETURN 

2450 ' **#####*#####«#####«#########*#### 

2460 !« AFFICHAGE DES ELEMENTS * 

2470 ! *#*########«###*##*###«#####H##### 

2480 COUL*="R":PRINT COUL*i PAUSE i CALL COLOR t "1 "&COUL«c"b"> 

2490 ! 

2500 RETURN 

2510 COUL»-' 

2520 RETURN 



iCALL COLOR("l"&COUL*! t "b") 
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2530 
2540 
2550 
2560 
2570 
2580 
2590 
260O 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2B30 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 



!# PARTIE NULLE * 

!•*••••••#**•**«•*************••*** 

CALL CDLDR<"OUIL"ï 

NULLE*="LLaa ppaarrttiiee eesstt nnuullee" 

LOCATE (19,2>|PRINT NULLE* 

RETURN 

!**«#***#**••*****••*#**••*•*#**••• 

!• PARTIE GAGNEE « 

! •*•••••*••••••#**•••*••******••#** 

CALL CQLORCOYIH") 

GAGNEl*="Le joueur" 

GAGNE2*="a gagné" 

LOCATE (19,12)iPRINT GAGNEl*iBiGAGNE2* 

LOCATE (20,12>sPRINT GAGNEl*iBiQAGNE2* 



RETURN 

.'* AFFICHAGE JOUEUR « 

!•***•*••*•*••**#***#«****•«*****#• 

CALL COLOR C "OGBH" ) 

LOCATE (2,30)îPRINT "Joueur: ";B 

LOCATE (3,30):PRINT "Joueur:"iB 

CALL COLOR <"OCB"> 

LOCATE (6,28>|PRINT " Donnez la " 

LOCATE <7,2B)|PRINT " position d '" 

LOCATE <8,28>|PRINT " 1 élément ' 

LOCATE (9,28)iPRINT " vivant 

RETURN 

!••*********•••*•••***••#•****•••** 

!» COORDONNEES ILLEGALES # 

!•**#**••«#•****#*#*«••****#•*****• 

CALL COLORC'ObIL") 

I LLEGALE*= " Mnaauuvvaai i sseess vvaal 1 eeuurr-ss " 

LOCATE (20,3):PRINT ILLEGALE* 

PAUSE 

CALL COLOR<"OWB">: LOCATE (20,3)iPRINT RPTtl" " ,LEN< ILLEGALE* ] ) 

RETURN 

SUB CADRE(XH,YH,LH,HH,AA*,BB*,CC*,DD*,EE*,FF*,GG*> 

LOCATE <XH,YH):PRINT AAtfcRPT* ( BB* , LH ) &CC* 

FOR Z=l TO HH:LOCATE <XH-fZ,YH> 

PRINT EE*S.RPT*<DD*,LH)tiEE*slMEXT Z 

LOCATE (XH+HH.YH) SPRINT FF*&RPT*<BB*,LH>fcGG* 

SUBEND 



-H- 
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EXELDIRECT 
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Exeltexte 80 colonnes 



Traitement de texte 80 colonnes -Ecriture style gras - style normal - 
Insertion de textes - insertion de pages vidéotex- Définition des 
marges- définition des fabulations - Recherche des pages - 
Positionnement en début ou en de texte- Impression qualité courrier 
ou qualité standard. 

Utilisation avec imprimante type Exelwriter. Exeltexte 80 ne peut être 
utilisé qu'avec l'Exeltel Sauvegarde sur Exelmémoire ou sur Exeldisk. 




Exelfile v1 ou v2 

Traitement de fichiers. 255 liches de 255 caractères. Traitement des 
champs de saisie. Recopies des champs, supression des champs. 
Fonction de tris par ordre croissant ou décroissant ou en défissant 
une clé de recherche. Tri multi-critères. Affichage fiche à fiche ou 
affichage du fichier en entier. Option publipostage ( V1 pour exeltexte 
40 colonnes V2 pour Exeltexte 80 colonnes ). 
Utilisation avec tout type d'imprimante. Exelfile fonctionne sur EXL 
100 ou sur EXELTEL Sauvegarde sur Exelmémoire ou sur Exeldisk. 




Cartouche Exeltel 



Cartouce de mise à niveau de l'EXL 100. Cette cartouche permet d 
pouvoir télécharger les logiciels disponible sur le centre serveur 
Exelvision. Cette cartouche permet notamment de télécharger les 
logiciels Exelquad. 
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Exelmax 



Exelmax es! un langage d'assemblage permettant d'élaborer des 
programmes en langage machine. Les programmes créés peuvent 
être ensuite intégrés dans des programmes développés en langages 
évolués BASIC ou LOGO- Exelmax fonctionne sur EXL 100 ou sur 
EXELTEL. Exelmax nécessite l'emploi d'une Exelmémoire ou d'un 
Exeldisk. Livré avec manuel de programmation 




Mise à niveau EXELTEL-VS 

Cette mise à niveau permet de transformer un Exeltel normal en 
Exeltel-VS. L'Exettel-VS dispose d'un BASIC 80 colonnes et permet 
de programmer le port modem. L'Exeltel-VS dispose en outre d'un 
mode de traitement des données aux normes ANSI internationales. 
Livré avec manuel de programmation et d'utilisation. La modification 
de l'Exeltel en Exeltel-VS est réalisée dans nos ateliers. 



^^ï 



Interface multi-fonctions 

L'interface multi-fonctions se connecte à l'arrière de l'Exeltel. Cette 
interface regroupe quatre fonctions: sortie parallèle type Centronics, 
sortie série type RSC 232, sortie souris et inscrustation vidéo. Cette 
interface est indispensable si vous désirez connecter une imprimante. 
Livrée avec manuel d'utilisation et de programmation 



N* 



Souris pour EXL 100 ou Exelfel 

L'Exelmouse est une souris qui se connecte sur l'interface multi- 
fonctions. L'Exelmouse est particulièrement adaptée pour l'utilisation 
des logiciels Exelpaint ou Exeltexte 80 colonnes. Toutes les 
fonctions de l'Exeltel sont pilotables par la souris. 
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EXELDISK compatible EXL 100 /EXELTEL 

Unité de disquettes 3,5 pouces. D'une capacité de stockage de 640 
Ko, l'Exeldisk apporte la dimension professionnelle à votre EXL 100 
ou votre Exeltel. Livrée avec un manuel d'utilisation et de 
programmation du DOS et une disquette système, l'unité de 
disquettes Exeldisk est indispensable pour toute application 
nécessitant l'emploi de fichiers. L'unité de disquettes Exeldisk facilité 
l'emploi de votre ordinateur. 



% 



Exelmémoire 16 Ko 

Le périphérique indispensable. L'Exelmémoire est une mémoire de 
16 ko auto-alimentée permettant une sauvegarde et un chargement 
immédiats des données. L'Exelmémoire possède un système 
d'exploitation de fichiers. Indispensable pour le téléchargement de 
logiciels ou la programmation en langage d'assemblage. Livrée avec 
manuel d'utilisation et de programmation. 




EXELWRITER 



L'imprimante Exelwriter est particulièrement destinée au traitement de 
texte Exeltexte 80 colonnes. L'Exelwriter est une imprimante 
matricielle permettant l'édition en continu ou en feuille à feuille. 
L'Exelwriter se connecte sur l'interface mufti-fonctions. Silencieuse, 
facile d'emploi, de faibles dimesnions, l'Exelwriter travaille en mode 
texte ou en mode graphique: Impression de pages vidéotex, 
impression de dessin réalisés avec Exelpaint. Livrée avec un manuel 
de programmation et d'utilisation et un ruban encreur. 



Et bien sûr, tous les autres logiciels, Guppy, Wizord, Capitaine Menkar, 
etc.. Les moniteurs monochrome ou couleur. Les packs EXELTEL. 
Un simple coup de téléphone el on vous livre 



«sSTs© 
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Initiation logo 

Test de Q.I. 

Les problèmes de logique 

Le jeu de la vie 




LA REVUE 

EXELEMENT 

VOTRE 



INITIATION LOGO 



KELOGO, le LOGO disponible sur Exelvision possède de remarquables possibilités graphiques 
Nous en ferors d'ailleurs la preuve dans un prochain numéro. Néanmoins, les applications graphiques sur 

orSnt^l^V H m ^ eXP ' 0it f "V* ' a t0f1Ue < Un pa P ilton ' en ,ait > Présenta Hnconv^nSde ne pas 
s onenter dans la direction que ton demande. L'idée de remplacer ce papillon par une (orme plus docile 

rnfïïuTP n C CQ ppI? irJrf ' '°S * C l Pr ° iet eX,tait de roUvra 9 e EN COMPAGNIE D'EXELOGO: LA 
CONDUITE DES PROJETS aux Edrtions GLAJEAN, publié avec leur aimable autorisation 



Introduction 

La "tortue" Exelogo a la particularité de se 
présenter sous la forme d'un papillon. Pourquoi 
pas ? Les premières "tortues de plancher" 
ressemblaient plus à un bidon monté sur 
roulettes, et le nom de tortue ne vient pas de leur 
forme, mais d'un hommage à Grey WALTER, 
biologiste et cybernéticien britanique... Ces 
tortues primitives, cylindriques pour ne pas 
accrocher l'environnement en pivotant, portaient 
un phare pour faciliter la distinction entre l'avant et 
l'arrière de la bête. 

Inconvénient plus gênant du papillon d'Exelogo: 
lorsquon fait tourner l'animal ( avec TD ou TG ), on 
a l'impression qu'il ne se passe rien: le papillon 
garde les antennes vers le haut de l'écran. Dès 
qu'on a demandé plusieurs rotations, il y a de quoi 
se sentir complètement perdu. L'importance de 
pouvoir "voir" vers où regarde la tortue à amené à 
remplacer la forme ronde de la tortue de sol par 
une silhouette clairement orientée: selon les 
versions du Logo, la tortue d'écran a l'aspect 
d'une capsule allongée, d'un triangle ( le plus 
fréquent ), ou même d'une vraie tortue, avec tête, 
pattes, queue et carapace à écailles. 

Nous vous proposons donc, comme premier 
projet dans ce chapitre, de rétablir une forme plus 
pratique ( triangulaire pour la tortue ). 

Intentions pédagogiques 

-Manipuler l'éditeur de formes 

-Créer un utilitaire qui permette une visualisation 

du cap ( avec une approximation acceptable), et 



facilite pour l'élève une démarche par 

tâtonnement. 

-Définir des pseudo-primitifs pour utiliser ces 

formes. 

Cahier des charges 

Puisque seize formes peuvent être définies, on 

peut visualiser la position de la tortue quand elle 

regarde vers le Nord, vers le Nord/Nord- Est, vers 

le Nord-Est, vers l'Est/Nord-Est, vers l'Est... et 

ainsi de suite, c'est-à-dire lorsque son cap est à 

22.5,45,67.5,90... 

Lorsqu'une tortue a une orientation intermédiaire, 
on ne peut pas visualiser exactement son cap. On 
est donc amené à adopter une approximation. 
Ainsi, quand la tortue est inclinée de moins de 
11.25° par rapport au Nord, on lui donne la forme 
"triangle qui pointe vers le Nord". 

Construction 

1} Construction des seize formes 



! 



TORTUE F 
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2) Choix de la forme compte tenu du cap de la 

tortue 



\Ï37,S 


,j 


22.5V 


'«•Xi? 

Z92,^VWV 




I 1 / * 5 " 


^!f^ 




^î^ 


27e , Fiî*3{^S 






^& 9a " 


"rt& 






w5?F5 


wày/X/j 






iS^xî 1 "" 


223" Vf 9 


ISS 


F7\ 135 " 


Â "1 


\|57,S' 



Pour trouver le numéro de forme connaissant le 
cap de la tortue, on ajoute 11.25 à ce cap ( 
puisque la forme commence quand la tortue 
regarde à 1 1 .25 degrés vers l'Ouest ) et on divise 
par 22.5 ( chaque forme couvrant un secteur de 
22.5 degrés d'amplitude ) . 

De plus, si le résultat ainsi obtenu est 16 { ce qui 
se produit quand on est entre le Nord/Nord-Ouest 
et le Nord ) , il faut adopter la forme 0. D'où la 
procédure: 



POURC 

DONNE "X QUOT SOMME CAP 1 1 .25 

22.5 
St: X=16 [FFORME D] [FFORME :XJ 
FIN 



De plus, si le résultat ainsi obtenu est 16 { ce qui 
se produit quand on est entre le Nord/Nord-Ouest 
et le Nord) , il faut adopter la forme 0. D'où la 
procédure: 



POURC 

DONNE "X QUOT SOMME CAP 11.25 

22.5 
SI aC » 16 [FFORME 0] [FFORME :X] 
FIN 



3) Définiïion de nouveaux primitifs pour la tortue 
Pour pouvoir utiliser à tout moment la tortue avec 
sa nouvelle silhouette, nous sommes amenés à 
redéfinir ceux des primit'rfs de guidage de la tortue 
qui ont une influence sur le cap. 

POUR EE 

VEC 

FIN 

POUR NET 
NETTOIE C 
FIN 

POUR DR :ANGLE 
TD :ANGLE C 
FIN 

POUR GA :ANGLE 
TG :ANGLE C 

POUR FIXECAP :ANGLE 

FCAP :ANGLE C 

FIN 

4) Pour utiliser ces pseudo-primitifs, une 
procédure transparente autorise l'utilisation de 
tout primitif Logo ( et donc de toute procédure 
éventuellement définie auparavant ): on fait 
afficher un point d'interrogation ( symbole d'invite 
habituel ), et on fait exécuter les instructions 
tapées par l'utilisateur. 



POUR% 

TAPE CAR 63 EXECUTE LL 
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LES TESTS DE LOGIQUE 
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L'ordinateur est particulière ment adapté à tous les 
problèmes de logique. De la logique aux tests de 
logique il n'y a qu'un pas que nous allons franchir. 
Tout d'abord comment définir un problème de 
logique ? Le problème de logique admet une 
solution. Ceci est très important. Tout problème 
dispose d'une solution q'un raisonnement permet 
de découvrir. C'est par exemple, une série de 
nombres qui sont ordonnés en suite logique. Par 
exemple: 2, 4, 6, 8, ?. Le prochain nombre de la 
série est 10. Evidemment, cette suite était 
construite à partir des multiples de 2. Pour 
découvrir 10 nous avons donc suivi le 
raisonnement suivant: Les nombres croissent de 
deux chaque (ois. Donc pour trouver le nombre 
manquant, il suffit d'ajouter 2 au dernier nombre. 
Mathématiquement parlant, la règle de logique 
était la suivante: 

Soit n appartenant aux nombres Entiers, il existe 
une relation qui lie n à ni , ni à n2, n-1 à n. 

Un problème de logique doit contenir une ou 
plusieurs relations liant les éléments d'une série. 
Toute la difficulté consiste à définir ces relations et 
ensuite à les appliquer. Pour expliquer le 
fonctionnement, nous allons étudier l'exemple 
écrit ci-dessus. 

Formulation du problème 

On choisit aléatoirement le nombre de départ de la 
série. En fonction de la difficulté que l'on voudra 
donner à l'exercice, l'intervalle de la valeur de 
départ peut être élargi. Dans notre exemple, nous 
prendrons un intervalle restreint: entre 1 et 5. 
Lorsque ce nombre sera déterminé, nous lui 
appliquerons la règle logique pour calculer le 
deuxième nombre de la série. On procédera de la 
même manière pour calculer les éléments de la 
série. Une fois ces éléments calculés, on choisira 
arbitrairement l'élément qui devra être trouvé. 



Ordinogramme 



^ 



( "*■ ) 



| Nfl-'J«C | 



Exelement Vôtre 20 



LES TESTS DE LOGIQUE 



œh*>-œ\ 



Tapez le programme donné ci-dessous. 



1 00 ! #**#*###**#*#####***##*### ### ** #### 

110 l# EXEMPLE 1 ■ 

120 ! ##*#######***###*#**#*#*#****#####* 

130 CLS "CBB":CALL COLOR ( "OCB" ) 

140 RANDOMIZE 

150 X=INTRND(5) 

160 FAC=INTRND<5> 

170 FDR 1=1 TO 6 

180 NU>=X+FAC 

190 X=N(I) 

200 NEXT I 

210 CACHE=INTRND<5> 

220 FDR 1=1 TO 6 

230 IF I=CACHE THEN PRINT "?"|" "isGOTO 250 

240 PRINT N(I)Î" "; 

250 NEXT I 

260 PRINT 

270 I NPUT " SQLUT I ON : " ! SOL 

280 IF SOLON (CACHE) THEN PRINT " MAUVA I SEREPONSE " 

290 PRINT "BONNE REPONSE" 



L 



je programme est très simple. Une fois l'élément 
de départ déterminé, on applique une simple 
règle d'addition à cet élément. Ainsi, à partir de 
l'élément X on obtient l'élément X+FAC. Ce 
dernier élément devient ensuite l'élément initial 
qui subit encore l'addition de FAC. Lorsque la 
série comporte 7 éléments, le programme génère 
un pointeur qui est utilisé pour masquer un des 
éléments de la suite en le remplaçant par un point 
d'interrogation. Le programme demande ensuite à 
l'utilisateur de taper la réponse. Si la bonne 
réponse est fournie, le programme s'arrête. Bien 
entendu, ce type de série numérique est très 
simple puisque les règles de tranformation des 
éléments sont limitées à la simple addition et ce 
avec un terme constant. On peut envisager de 
faire varier le facteur d'addition d'une manière 
linéaire, mais même dans ce cas la suite reste très 
simple à déterminer. 



Nous allons aborder maintenant la programmation 
de séries numériques obéissant à plusieurs règles 
de transformation. 

Le choix des règles de transformation 

Pour que la suite numérique reste dans le 
domaine du trouvable. il faut choisir des règles 
arithmétiques simples ( on peut très bien appliquer 
des progressions par LOG ou par fonctions 
hyperboliques ). Nous nous limiterons à trois 
opérations simples qui sont l'addition, la 
soustraction et la multiplication. De cette manière, 
nous obtiendrons des termes entiers, ce qui n'est 
pas le cas si on utilise la division, qui entre autre, 
peut induire des quantités tendant vers ». { (infini 
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Sélection aléatoire d'une règle 



Les trois règles qui seront appliquées obéissent 
aux lois suivantes: 



R(1)=X+FAC1 

R(2)= X-FAC2 
H(3)= X*FAC3 



X, FAC1, FAC2, FAC3 sont tirés aléatoirement au 
début du programme. 



A partir de ce stade, il nous faut sélectionner les 
règles qui seront appliquées tout en gardant à 



l'esprit qu'une, deux ou trois règles peuvent être 
appliquées en môme temps. 
Pour réaliser cette opération, on tire aléatoirement 
AL qui peut prendre toutes les valeurs comprises 
entre 0,00000000 et 0,999999999. Si AL est 
supérieur à 0,5 alors la règle R d'indice I prend la 
valeur 1 , sinon elle prend la valeur 0. L'indice I 
varie de 1 à 3 ce qui correspond au nombre de 
règles qui doivent être mises en jeu. Lorsqu'une 
règle est activée ( c'est-à-dire R(l)=1 ), un 
indicateur d'activation ( ACTIF ) est incrômenté 
d'une unité. Cet indicateur possède deux 
fonctions: l'une étant de vérifier si au moins une 
règle a été activée, l'autre permettant d'activer les 
règles composées ( que nous verrons plus loin ). 
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L'application des règles simples 

Une fois les règles simples activées, ces 
dernières sont appliquées à l'élément de départ 
X, choisi initialement avec les facteurs d'addition, 



de soustraction et de multiplication. L'application 
des règles est similaire à l'exemple décrit au tout 
début de ce chapitre. Ainsi, pour un nombre X 
compris entre 1 et 5 et en fonction du nombre de 
règles activées, on obtient 8 cas possibles. 



Au départ, le nombre X «ré aléatoirement est affecté à la chaîne SERIES 
SEHIES=STR$<X)4 , V 



RM) 


R<2) 












o 










I 




a 


1 




i 










1 1 


; 



En sachant que la fôgle t ajoute à valeur de l'élément précédent la valeur FAC1 . que la règle 2 retranche 
à la valeur de l'élément précèdent la valeur FAC2. que la règle 3 multiplie la valeur de l'élément précédent 
par la valeur FAC3, nous pouvons déduire les différentes séries possibles. 



2-SERIES=X/X'FAC3/ 

3-SER1ES=X/X-FAC2/ 

4-SERIES=X / X-FAC2 / {X-FAC2)*FAC3 / 

5-SERIE$=X/X+FAC1/ 

6-SERIE$=X/XtFAC1 /(X+FAC1 )TAC3/ 

7-SERIE$=X / X+FÀCï / (X+FAC1)-FAC2 / 

8-SERIE$=X / X+FAC1 / <X+FAC1>-F AC2 / «X*FAC1)-FAC2CFAC3 / 



SI X - 3, FAC1 -3, FAC2.2, FAC3-3 n 



2-SERIE$=3/ 


1 




3-SERIES-3 






-1 SERIf£$= 3 




3 


5-SERIES-3 


t> 




6-SERIE$- 3 


fi 


18/ 


7-SERIE$-3 




4/ 


8-SERIES-3 


ti 


4/12 
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Expression de la série 

Lorsque les différentes règles activées sont 
appliquées, une partie de la série numérique est 
calculée. Cette partie de la série est exprimée 
sous la forme d'une chaîne de caractères 
SERIES. Pour isoler chaque élément de la série, 
on introduit un séparateur ( / barre de fraction ) 
entre chaque terme de la série. De cette manière, 
la série sera affichée clairement et l'on pourra 
établir de nouvelles règles entre les éléments. 

Les règles composées 

Pour rendre la série plus difficile à deviner, on 
applique en fonction des règles simples activées 
des règles composées. Ces règles opèrent des 
calculs sur les différents éléments de la série sans 
utiliser les facteurs appliqués par les règles 
simples. Comme pour les premières règles, on 



aura trois règles composées. L'activation et 
l'application de ces règles dépendent de 
l'indicateur ACTIF. Si ACTIF vaut 1, la première 
règle composée est activée. Si ACTIF vaut 2, la 
deuxième règle composée est activée. Si ACTIF 
vaut 3, la troisième règle composée est activée. 



Fonctionnement des règles composées 

La première règle composée additionne entre eux 

les deux termes issus de l'application des règles 

simples. 

La deuxième règle composée additionne le 

premier et le troisième terme issus de l'application 

des règles simples. 

La troisième règle composée additionne le 

premier terme et le quatrième terme et soustrait le 

deuxième terme issus de l'application des règles 

simples. 
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LES TESTS DE LOGIQUE 



/S\ 
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) " X2 h 


i 

X / 


X1 / X2 / X3 /|(X+X3 

t 








X/X1/X2/X3/(X+X3)-X1 / | 








3 téglam simptss ont *lè activ*« 





Une fois toutes les règles appliquées, on obtient 
des séries numériques de différentes difficultés. 
Ainsi, si on reprend les séries définies au bas ta 
page B, elles deviennent: 



:-:=3'9/12/ 
3-SERIE$=3/ 1 / 4 ; 
4-SER|E$=3/ 1/3/6/ 
5-S£RIE$=3/6/9' 
6-SERIE$=3/6M8/21/ 
7-SERIE$=3/6/4M0/ 
8-SERIES=3/6/4/12/9/ 



Nous avons à présent une série numérique. Pour 
qu'un utilisateur devine un des éléments 
constitutifs de la série, on devra afficher un peu 
plus d'éléments. Par exemple 3 fois plus. Pour 
réaliser cette opération, il suffit de reproduire deux 
fois les différentes procédures qui ont permis 
d'obtenir la série de départ, tout en spécifiant que 
le dernier élément de la série courante devient le 



premier élément de la prochaine série. 

Masquage d'un élément 

Lorsque la série numérique est complète, nous 
devons l'afficher à l'écran tout en occultant un de 
ses éléments et en le remplaçant par un point 
d'interrogation. 

Pour réaliser le masquage d'un élément, on 
génère un pointeur aléatoire dont la valeur ne 
devra pas excéder la longueur de la chaîne de 
caractères SERIES. Une fois le pointeur fixé, on 
extrait de la chaîne de caractères SERIES, le terme 
indiqué par le pointeur. Si ce terme est une barre 
de fraction ( séparateur ), on récupère le prochain 
élément. A partir de cet élément, on "scanne" le 
reste gauche de la chaîne de caractères jusqu'à 
rencontrer une barre de fraction. Le terme qui 
devra être masqué est situé entre les deux barres 
de fraction. On procédera de la même manière 
pour comparer la solution fournie par l'utilisateur 
avec la réponse exacte fournie par la chaîne de 
caractères SERIES. 



En résumé, les séries numériques induites par le programme ne sont pas très faciles à deviner, mais, 
lorsque l'utilisateur a découvert le principe d'application des 8 lois possibles elles deviennent assez 
simples à résoudre. Pour cette raison, on peut envisager un sous-programme qui accroît la diificulté au 
niveau des facteurs appliqués aux règles simples... 
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100 ! ****####*##•#**#«#*••••••*•*######• 

110 !# EXEMPLE 1 * 

1 20 ! ###################**############## 

130 CLS "CBB":CALL COLQRC'OCB") 

135 DIM NI 100) 

140 RANDOMIZE 

145 ACTIF*OlACTIFC=0 

150 X=INTRND(4>+1 

160 FAC1=INTRND<4>+1 

170 FAC2=INTRND<1>+1 

180 FAC3=INTRND<2>+1 

190 !=======ACTIVATION DES REGLES======= 

200 il -REGLES SIMPLES 

210 ! =================================== 



220 FOR 1 = 1 TO 3 

230 AL=RND 

240 IF AL<.5 THEN R < I )=1 : ACTIF=ACTIF+1 :G0TO 260 

250 R(I)=0 

260 NEXT I 

265 IF ACTIF=0 THEN 220 

270 !=======ACTIVATION DES REGLES======= 

280 !2-REGLES COMPOSEES 

290 ! =================================== 

300 FOR 1=1 TO 3 

Z10 AL=RND 

320 IF AL>.5 THEN RC< I > = 1 s ACTIFC=ACTIFC+1 : GOTO 340 

330 RC ( I ) =0 

340 NEXT I 

341 ! 

342 1=1 

350 !======APPLI CATIONS DES RE6LES===== 

355 TOUR=0 

360 SER I E*=STR* ( X > & " / " 

370 IF R<1)=1 THEN GOSUB 1000 

375 ! 

380 IF R(2)=l THEN GOSUB 1200 

390 IF R(3)=l THEN GOSUB 1400 

392 

400 !=======TRANSFORMATION EN CHAINE» 

485 
490 
500 
505 

506 IF TOUR=0 THEN L0=0 

507 IF T0UR>3 THEN GOSUB 3000:GOSUB 5000:G0T0 145 
510 ON ACTIF GOSUB 2000,2200,2400 

515 SERIE*=SERIE*S<SERIE1* 

520 IPRINT SERIE*: PAUSE 

521 L0=LEN<SERIE*)-LEN<SERIE1*> 
525 T0UR=T0UR+1 

530 GOTO 370 



=REGLES COMPOSES EN ACTION» 
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1000 !=====REGLE 1 EN ACTI0N============ 

1010 N(I)=X+FAC1 

1020 X=N(I>!SERIE*«SERIE*&STR*(X)S("/": 1 = 1 + 1 

1030 RETURN 

1200 !=====REGLE 2 EN ACTI0N============ 

1210 N(I)=X-FAC2 

1220 X=N (I ) : SERIE*=SERIE*&STR* (X) 8.V": 1 = 1 + 1 

1230 RETURN 

1400 !=====REGLE 3 EN ACT I QN============ 

1410 N(I>=X*FAC3 

1420 X=N(I>:SERIE*=SERIE*&STR*(X>& , V ,, i 1 = 1 + 1 

1430 RETURN 

2000 !=====RC1 EN ACTIGN================ 

2005 P=POS (SERIE*, "/"iLO+D 

2006 ! 

2010 VALEUR1*=SEG* (SERIE*, LG+1,P-(1+L0>) 
2012 1PRINT VALEUR1*: PAUSE 

2015 P1=P0S(SERIE*,"/",P+1> 

2016 ! 

2020 VALEUR2*=SEG* ( SER I E* , P+ 1 , P 1 - ( P+ 1 > > 

2025 IPRINT VALEUR2*: PAUSE 

2030 VALEUR3=VAL (VALEUR1*) +VAL (VALEUR2*) 

2040 X=VALEUR3 

2050 SERIE1*=STR*(X>&"/" 

2055 ! 

2060 RETURN 

2200 !=====RC2 EN ACT I 0N================ 

2205 P=P0S(SERIE*,"/",L0+1) 

2206 ! 

2210 VALEUR1*=SEG*(SERIE*,L0+1,P-(1+LQ> ) 
2215 Pl=POS(SERIE*,"/",P+l> 

2217 P2=P0S(SERIE*,"/",P1+1) 

2218 ! 

2220 VALEUR2*=SEG* (SERIE*, Pl+1 ,P2-(P1+1 ) ) 

2230 VALEUR3=VAL ( VALEUR 1 * ) +VAL ( VALEUR2* ) 

2240 X=VALEUR3 

2250 SERIE1*=STR*(X)!< , V 

2260 RETURN 

2400 l====RC3 EN ACTION================= 

2405 P=P0S(SERIE*,"/",1+L0) 

2410 VALEUR 1 *=SEG* < SER I E* , 1 +L0 , P- ( 1 +L0 > > 

2415 P1=P0S (SERIE*, "/",P+1> 

2417 P2=PDS(SERIE*,"/",P1+1) 

2420 VALEUR2*=SEG* ( SER I E* , P 1 + 1 , P2- ( P 1 + 1 ) ) 

2425 P3=PGS(SERIE*, , '/",P2+1) 

2427 VALEUR3*=SEG* ( SER I E* , P2+ 1 , P3- ( P2+ 1 ) ) 

2428 <. 

2430 VALEUR4=VAL ( VALEUR 1 * > +VAL ( VALEUR3* ) -VAL ( VALEUR2* ) 

2440 X=VALEUR4 

2450 SERIEl*=STR*(X)!c"/" 

2460 RETURN 
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3000 !====«AFFICHAGE DU PR0BLEME======= 

3010 ! PRINT SERIE* 
3020 LP=LEN (SERIE*) 
3030 PDINT=INTRND(LP>+1 
3040 IF PDINT>LP THEN 3030 

3050 ! MASQUAGE 

3060 PSLASH=P0S (SERIE* , "/" .POINT) 

3065 ! 

3070 IF POINT=PSLASH THEN BOSUB 4000:RETURN 

3080 ! RECHERCHE SEPARATEUR PRECEDENT 

3090 P0INT=PDINT-1 
310O GOTO 3060 

4000 ! MASQUE UN NOMBRE 

4010 PPSLASH=POS (SERIE*, ••/■', POINT+1) 

4020 PROBLEME*=SEG* ( SER I E* , 1 , PSLASH) S. " ? " 

403O PROBLEME*=PROBLEME*&SEG* (SERIE*, PPSLASH , LP ) 

4040 PRINT PROBLEME* 

4050 RETURN 

5000 PRINT:PRINT:MAUVAIS=0 

5010 ACCEPT BEEP VAL IDATE (DIGIT) NULL (O) .REPONSE 

5020 ! COMPARAISON REPONSE 

5030 ! 1-EXTRACTION REPONSE 

5035 ! 

5037 IF MAUVAIS=3 THEN 5070 

5040 BREP0NSE*=SEG*(SERIE*,PSLASH+1, PPSLASH- (PSLASH-H > ) 

5050 IF REP0NSEOVAL(BREP0NSE*)THEN MAUVAIS=MAUVAIS+1 :GOTO 5010 

5060 ! 

5070 PRINT: PRINT "LA BONNE REPONSE ETAIT: " ! BREPONSE* 

50S0 PAUSE: RETURN 



TOURNEZ LA PAGE- 
UN VRAI TEST D'INTELLIGENCE VOUq 
ATTEND. LA PARTIE SERA RUDE. 
LE TEST EST CHRONOMETRE 
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100 

110 !tt TEST ET QI t 

120 ! tt**##*##***#*a*tt###tt#####*tt*#####*« 

130 CODE*="TESTQITESTQITESTQITESTQITESTQITESTQITESTQI " 

140 CLS "Wbb":CALL C0L0R ( "OWb") 

150 LOCATE (O.l)sPRINT RPT* < " ",40) 

160 DIM XHlZ) ,NF(40) 

170 CHRONO=40:NOMBREQUES=40 

180 GOSUB 3910 

190 >tt*####*#tt«***#**»###tttt*tt»*####tt###tt 

200 !# PRESENTATION • 

210 ! ############**###############*##### 

220 AA*=CHR*(9) :BB*=CHR*<4> :CC*=CHR*<6) : DD*=" " : EE*=CHR* (3) : FF*=CHR* (8 ) 

230 GG*=CHR*I7> 

240 XH=l:YM=l:HH=20:LH=38îCALL COLOR < "OWb") 

250 CALL CADREfXH, YH,LH,HH,AA*,BB*,CCS,DDï,EE*,FF«,GG«> 

260 XH=6!YH=9:HH=12îLH=23:CALL COLOR < "OBbl" ) 

270 CALL CADRE(XH,YH,LH,HH,AA*,BB*,CC*,DD*,EE*,FF*,GG*> 

280 XH=7:YH=8:HH=12îLH=23:CALL COLORC'OYI") 

290 CALL CADRE<XH,YH,LH,HH,AA*,BB*,CC«,DD*,EE*,FF*,GG*) 

300 CALL PRESENTATION 

310 PAUSE 3 

320 ! *#*#*###*##*#######**#####**«###### 

330 '# INIT TIMER * 

340 ' ##*#########*»»» #####*# ** ###### ###*» 

350 DATA 62,4,170, 199,227, 179, 173,198,53,227,4, 171 ,199,227, 10, 181 , 171 , 199, 22 

360 DATA 202,237,10,24,60,60,100 

370 RESTORE 350 

380 FOR 1=0 TO 25:READ TIME 

390 CALL POKEt 50720+1, TIME) 

400 NEXT I 

410 CALL P0KE(491S6, 198,32) 

420 HEURE=0:MINUTE=OîSECONDE=0 

430 CALL P0KE(51172, HEURE, MINUTE, SECONDE, 0) 

440 CALL POKE (258,255, 139) 

450 RESTORE 2800 / 

460 ! ######* ####»## #*»#** *«#*### **###*## 

470 '# PROGRAMME PRINCIPAL * 

480 ' ##*###*#*##*##«*##****########***#* 

490 FOR 1=1 TO NOMBREQUES-1 

500 IF I>40 THEN 550 

510 READ NUMERO, TYPE, NCHIFFRES 

520 CLS:CALL COLOR < "OGB" > :LOCATE (0,1):PRINT "Numéro: " ; NUMERO; " : " ; 

530 ON TYPE GOSUB 1410,1510,1610,1920 

540 NEXT I 

550 PASS2=1 

560 RESTORE 2800 

570 FOR 1=0 TD PF-1 

580 READ NUMERO, TYPE, NCHIFFRES 

590 IF NUMERO< >NF C I > THEN 630 

600 CLS: CALL COLOR ( "OGB" ); LOCATE 10,1) 

610 PRINT "Numéro: "; NUMERO; ": " ; : ON TYPE GOSUB 1410,1510,1610,1920 

620 GOTO 660 

630 FOR J=l TO NCHIFFRES+1:READ XX:NEXT J:IF TYPE=3 OR TYPE=4 THEN READ XX 

640 IF NUMERO=NOMBREOUES THEN GOTO 680 

650 GOTO 580 

660 IF NUMERO=NOMBREQUES THEN GOTO 680 

670 NEXT I 

680 IF PFOO THEN GOTO 560 

690 ! EVALUATION DES RESULTATS 

700 CLSîLOCATE (0,1):PRINT RPTi ( " ",40) 
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; MINUTE? 



ï BONNEREPONSEï Vépo 



710 CALL COLOR("OGHI")îLOCATE (2,12) 

720 PR1NT "RESULTATS DU TEST)" 

730 LOCATE (3,12) 

740 PRINT "RESULTATS DU TEST:" 

750 CALL COLORC'OMBH"): LOCATE (3,1) 

760 PRINT "Vous avez effectué ce test 

770 LOCATE (6.1) 

780 PRINT "Vous ivez effectué ce test en " ; MINUTE; "uns. " 

790 LOCATE (7,1) 

800 PRINT "Vous avez donné "ï BONNEREPONSEï "réponses correctes. 

810 LOCATE (0,1) 

820 PRINT "Vous avez donné 

B30 LOCATE (9,1) 

840 PRINT "Vous avez donné "îMAUVAISEREPONSEï " fausses réponses. ■ 

B50 LOCATE (10,1) 

860 PRINT "Vous avez donné "îMAUVAISEREPONSEî" fausses réponses. * 

870 CALL C0L0R("0YH")i LOCATE (12,1) 

B80 PRINT "Sur un total de " îNOMBREQUES; " questions." 

890 LOCATE (13,1) 

900 PRINT "Sur un total de " ; NOMBREGUESï " questions." 

910 BOSUB 930 

920 END 

930 ! EVALUATION DU QI 

940 IPRINT BONNEREPONSE: PAUSE 
950 IF BONNEREPONSE >«36 THEN 960 ELBE 1010 
960 CALL C0L0R("0RIH"):L0CATE (14,1) 
970 PRINT "Votre 0. I est supérieur a 145" 
9B0 LOCATE (15,1) 

990 PRINT "Votre Q. I est supérieur a 145" 
1000 QI=145iGOSUB 1180:RETURN 
1010 IF B0NNEREP0NSE<6 THEN 1020 ELSE 1070 
1020 CALL C0L0R("0bHI")i LOCATE (15,1) 
1030 PRINT "Votre Q. I est inférieur à BO" 
1040 LOCATE (16,1) 

1050 PRINT "Votre Q. I est inférieur à BO" 
1060 QI=80iG0SUB UBOiRETURN 
J.070 RESTORE 3870 
1080 READ SCORE, 01 

1090 IF SCORE-BDNNEREPONSE THEN 1100 ELSE 1160 
1100 CALL COLORC'OGHI") s LOCATE (15,1) 
1110 PRINT "Q.I compris entre ";QI-5î" et "lQI+5 
1120 LOCATE (16,1) 

1130 PRINT "Q.I compris entre "ÏQI-5Ï" et "ïQI+5 
1140 ! PAUSE 

1150 GOSUB UBOiRETURN 
1160 BOTO 1080 
1170 RETURN 

11B0 ! EVALUATION POPULATION QI 

1190 T=(0I-100)/16 

1200 E=EXP(-T*T/2)/2.50662B275:Z=l/U + .33267#ABS<T)) 

1210 D=1-E#(.4361836*Z-. 1201676*Z*Z+.937298*Z A 3) I IF T<0 THEN Q=l-Q 

1220 Q=Q»100 

1230 CALL COLORC'OBIH") :L0CATE (17,1) 

1240 PRINT USIN6"##.##7.";Q 

1250 LOCATE <1B,1) 

1260 PRINT USING"##.##X"ïQ 

1270 LOCATE (17,7) 

1280 PRINT " de la population a un Q. I " 

1290 LOCATE (18,7) 
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1300 PRINT " de la population a un □. I 

1310 LOCATE (19,1) 

1320 PRINT "inférieur au votre 

1330 LOCATE (20,1) 

1340 PRINT "inférieur au votre 

1330 PAUSE 

1360 ! LOCATE (19,1) 

1370 IPRINT "0.1 inférieur au votre" 

13B0 'LOCATE (20,1) 

1390 IPRINT "Q.I inférieur au votre" 

1400 RETURN 

1410 ! NOMBRE A EXCLURE 

1420 CALL C0L0R("0bY B )iL0CATE (10,1) 

1430 PRINT "Quel nombre n'appartient pas à la série?" 

1440 CALL COLDR ("0GB") a LOCATE (15,1) 

1450 FOR J=l TO NCHIFFRESiREAD XX:PRINT XXî" H i:NEXT J 

1460 GOSUB 2250 

1470 GOSUB 2490 

1480 IF REP1-REP0K1 THEN BONNEREPONSE=BONNEREPONSE+ 1 I RETURN 

1490 IF REPO-1 THEN MAUvAISEREPONSE=MAUVAISEREPONSE*-l 

1500 RETURN 

1510 ! NOMBRE SUIVANT 

1520 CALL COL0R("0bY"):L0CATE (10,1) 

1530 PRINT "Donnez le prochain nombre de la série ?' 

1540 CALL C0L0R("0GB"):L0CATE (15,1) 

1550 FOR J-l TO NCHIFFRESsREAD CHiPRINT CHI " "liNEXT J 

1560 GOSUB 2250 

1570 GOSUB 2490 

1S80 IF REP1-REP0KI THEN BONNEREPONSE=BDNNEREPONSE+ 1 i RETURN 

1590 IF REPO-1 THEN MAUvAISEREP0NSE=MAUVAISEREPONSE+l 

1600 RETURN 

1610 ! DDMINOS EN LONG 

1620 CALL COLOR("OCB")iLOCATE (2,1) 

1630 PRINT "Quelles sont les valeurs manquantes " 

1640 LOCATE (3,1) 

1650 PRINT "sur le dernier domino? " 

1660 FOR K-l TO 12:READ X^K>iNEXT K 

1670 RANGEE=0 

1680 FOR J=l TO 6iRANGEE-RANGEE+5i GOSUB 2560îNEXT J 

1690 ! 

1700 RANGEE-0 

1710 FOR J=l TO 6iRANGEE=RANGEE+3i GOSUB 2620iNEXT J 

1720 RANGEE=0 

1730 FOR J=l TO 6:RANGEE=RANGEE+5:G0SUB 2690: NE XT J 

1740 RANGEE=0 

1750 FOR J-l TO 6:RANGEE-RANGEE+5:G0SUB 3560aNEXT J 

1760 OFF=4 ( RANGEE-0 

1770 FOR J=7 TO 12:RANGEE=RANGEE+5: GOSUB 2560:NEXT J 

1780 RANGEE-0 

1790 FOR J=7 TO 12: RANGEE-RANGEE +5: GOGUB 2620:NEXT J 

1800 RANGEE =0 

1810 FOR J=7 TO 12: RANGEE-RANGEE +5: GOGUB 2690:NEXT J 

1820 MULT=30: GOSUB 3590 

1830 CALL COLORC'OWb") 

1840 GOSUB 2250 

1850 GOSUB 2490 

1860 OFF-0 

1870 IF REP1-REP0K1 AND REP2=REP0K2 THEN BONNE REPONSE- BONNEREPONSE + 1 : RETURN 

1880 IF REPlO-1 THEN MAUVAISEREPONSE-MAUVAISEREPONSE+1 

1890 OFF-0 
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1VOO 


RETURN 


1910 
1920 




__._,. 


! DunINQS DUR 2 COLONNES 


1930 
1940 




CALL COLORC'OCB"): LOCATE (2,1) 


1950 


PRINT "Quelles sont 1m viliurs manquantes " 


1960 


LDCATE (3,1) 


1970 


PRINT "manquantes sur le domino? " 


I9B0 


FOR K-l TO 12iREA0 X<K)iNEXT K 


1990 


FOR RANG-0 TO 1 


2000 


R=RANG*6i RR-RANG*9 


2010 


RANGEE=0 


2020 


FOR J-R+l TO R+3:RANGEE«RANGEE+S: GOSUB 2560:NEXT J 


2030 


RAN8EE-0 


2040 


FOR J-R+l TO R+3iRANGEE=RANGEE+B: GOSUB 2620: NEXT J 


2050 


RANGEE -0 


2060 


FOR J=*R+1 TO R+3iRANGEE=RANGEE+BiG0SUB 2690iNEXT J 


2070 


RANGEE=0 


20B0 


FOR J-l TO 3:RANGEE=RANGEE+8:BOSUB 3560iNEXT J 


2090 


OFF -=4 1 RANGEE -0 


2100 


FOR J-R+4 TO R+6iRANGEE*RANBEE+B>G0SUB 2560«NEXT J 


2110 


IIMIIII II 


2120 


FOR J-R+4 TO R+6:RANGEE=RANBEE+8:GOSUB 2620sNEXT J 


2130 


RANGEE -0 


2140 


FOR J-R+4 TO R+61RAN8EE-RANBEE+81OO8UB 2690iNEXT J 


2150 


RANGEE-OiFOR J=R+4 TO R+6:RANGE£=RANGEE+8: GOSUB 3610iNEXT J 


2160 


OFF-0 


2170 


NEXT RANG 


2180 


OFF-0: RR-0 


2190 


CALL COLDRC'OWb") 


2200 


GOSUB 2250 


2210 


GOSUB 2490 


2220 


IF REP1-REP0K1 AND REP2-REP0K2 THEN BDNNEREP0NBE=B0NNERÉP0NSE+1 1 RETURN 


2230 


IF REPlO-1 THEN MAUVAISEREPONSE=MAUVAISEREPONSE+I îRETURN 


2240 


RETURN 


2250 




. ~* fc.« P ntt ut Lh rttrUNst — — 


2260 


REP*« REP1=~1 : REP2— 1 : NREP=0; MIN=0 


2270 


CALL CDLORCOWb") 


2280 


FOR EFF-1 TO 3:L0CATE (EFF, 1 > iPRINT RPT*(" ",40>iNEXT EFF 


2290 


CALL P0KE(256,175) 


2300 


IF MINUTE>46 THEN RETURN 


2310 


CALL PEEK(51172, HEURE, MINUTE, SECONDE, CENT) 

CALL COLORC'OGB") : LOCATE <0,20)iPRINT "Chrono: ";MINUTEi - m "fSECONDE|| 

CALL COLORC'OWb") * 


2320 


2330 


2340 


LOCATE .(22 ( 1) iPRINT "Réponse:"; 


2350 


FLAG-Oj 


2360 


CALL KEY1 (A,B) 


2370 


IF A-255 THEN 2310 


2380 


ACCEPT BEEP VALIDATE <"0123456789/">NULL<"* , -> ,RP* 


2390 


CALL P0KE(256,171):FLAG-0 


2400 


IF RP*="#" THEN GOTO 2440 


2410 


P0SI=P0S(RP*,"/",1) 


2420 


ON TYPE GOSUB 3640,3640,3730,3730 


2430 


IF FLAG=1 THEN 2340 


2440 


IF RP*="*" THEN IF PASS2-0 THEN NF(PF)-NUMEROiPF=PF+l :RETURNî ELSE RETUR 


2450 


IF PASS2=0 THEN RETURN 


2460 


IF I=PF THEN PF=PF-1: RETURN 


2470 


PF=PF-lsFOR J=I TO PF-1:NF(J)-NF(J+1)»NEXT J: IF I>0 THEN 1=1-1 


2480 


RETURN 


2490 


. DECODAGE DU BON RESULTAT 
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gs es is^:!S3S^ss^:s:ss:ïïss:i:î:!.«™h 

2540 ! 
2550 ! 
2560 ! 
2570 GDSUB 3200 

2590 IF X<J>-1 OR XIJ1-0 OR «<J>— 1 THEN BOSUB 3240sRETURN 
2600 IF XCJI-4 OR Xdl-6 OR X<J>-5 THEN GOSUB 3260.RETURN 
2610 IF X(J>-2 OR XCJ>-3 THEN BOSUB 3290iRETURN 



PREMIERE LIBNE 



DEUXIEME LIGNE 



2620 ! 
2630 ! 

2650 IF XIJ>-0 OR XIJ1-2 OR X(J)-4 THEN BOSUB 3320iRETURN 

ISo !f x!j>-1 OR XCJI-3 DR X(J)-5 THEN GOSUB 33S0.RETURN 

2670 IF X(J)-6 THEN GOSUB 33B0sRETURN 

26B0 IF X(J)— 1 THEN GOSUB 3410iRETURN 

2690 ! 

2700 !- TROISIEME LIGNE 

2720 IF X(J]-40R X(J>-5 OR XIJI-6 THEN GOSUB 3470tRETURN 
2730 IF X<J)-0 OR X!J)-1 OR X(J>— 1 THEN GOSUB 3500iRETURN 
2740 IF X(J>-2 OR X(JI-3 THEN BOSUB 3330iRETURN 

2760 DATA 0,3,12,1.2,3,4,5,-1,1,2,3,4,5,-1,90,90 
2770 DATA 0,4, 12, 1 , 1 , 1 ,3,3,3,2,2,-1 ,4,4,-1 ,B6,8B 
27B0 DATA 0, 1 ,8, 1 ,3,5,7,9, 10, 1 1 , 13,94 
2790 DATA 0,6, 1 ,2,4,8, 16,32, 14B 

2S0O DATA 1,3,12,4,4,4,4,4,-1,1,1.1,1,1,-1,73,70 
2810 DATA 2,3,12,5,3,5,3,5,-1,2,4,2,4,2,-1,86,87 
2820 DATA 3,3,12,5,4,3,2,1,-1.5,6,0,1,2,-1,84,87 
2B30 DATA 4,3,12,1,0,6,5,4,-1,4,5,6,0,1,-1,84,83 
2S40 DATA 5,3,12,4,4,2,2,0,-1,6,4,2,0,5,-1,73,76 
2B50 DATA 6,3,12,1,1,2,2,3,-1,2,3,3,4,4,-1,87,89 
2860 DATA 7,3,12,4,6,0,2,3,-1,5,6,1,2,4,-1,74,74 
2870 DATA 8,3,12,4,1,3,3,1,-1,3,2,1,1,2,-1,87,86 
2880 DATA 9,4,12,4,3,6,3,2,4,2,3,-1,3,4,-1,88,90 
2B90 DATA 10,4,12,3,6,5,6,4,2,3,2,-1,3,6,-1,82,86 
2900 DATA 11,3,12,5,2,6,3,0,-1,0,4,1,5,2,-1,77,79 
2910 DATA 12,4,12,1,2,3,5,4,3,2,3,-1,4,3,-1,BB,86 
2920 DATA 13,4,12,6,1,5,4,2,2,5,2,-1,2,2,-1,72,69 
2930 DATA 14,3,12,3,4,6,0,2,-1,4,3,5,4,6,-1,86,88 
2940 DATA 15,4,12,1,4,2,3,0,3,4,1,-1,2,5,-1,86,87 
2950 DATA 16,4,12,2,1,5,4,0,2,2,3,-1,3,3,-1,87,86 
2960 DATA 17,3,12,2,2,4,0,6,-1,3,3,1,5,6,-1,78,73 

2970 DATA 18,1,7,2,4,6,8,9,10,12,93 

2980 DATA 19,1,5,15,30,45,60,65,134 

2990 DATA 20, 1 ,5, 2B, 21 , 17, 14,7, 100 

3000 DATA 21,1,6,4,6,5,7,6,9,93 

3010 DATA 22,1,6,1,4,9,13,16,25,94 

3020 DATA 23,1 ,6, 2, 2, 4, 8,12, 4B, 81 

3030 DATA 24,1,5,4512,462,75,56,39,140 

3040 DATA 25,1,6,6,20,3126,234,42,7,76 

3050 DATA 26,2,5,0,2,4,6,8,93 

3060 DATA 27,2,5,3,6,10,15,21,112 

3070 DATA 2B, 2, 7, 3, 6, 4, 8, 6, 12, 10, 101 

3080 DATA 29,2,5,3,4,6,10,18,107 

3090 DATA 30,2,7,5,5,6,4,7,3,B,B6 
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3100 DATA 31,2,12,0,1,2,3,2,1,2,3,4,3,2,3 




3110 DATA 32,2,5,3,8,18,38,78,241 


3120 DATA 33, 2, 6,4, 6,12, 14, 28, 30, 144 


3130 DATA 34, 2, 8,0,1,2,4, 4,7,6,10,09 


3140 DATA 35, 2, S, 1,2, 2, 4, B, 105 


3150 DATA 36,2,6,1,3,6,11,20,37,154 




3160 DATA 37,2,8,0,1,3,4,8,15,27,50,161 
3170 DATA 38,2,7,7, 10, 4, 9, 3, 8, 2, B8 




3180 DATA 39,2,6,5,7,3,1,4,5,9,5,89 




3190 DATA 40,2,6,3,4,8,13,22,36,140 




3200 A*="c" 




3210 LOCATE (4+RR,RANBEE) sCALL COLOR<"lBb 


') iPRINT RPT»<A*,5) 


3220 ! 




3230 RETURN 




3240 A*-"bae»d a 




3250 LOCATE (5+OFF+RR, RANGEE) i CALL COLDR< 


1BW">1 PRINT A*i RETURN 


3260 A*="baead" 




3270 LOCATE (5+OFF+RR, RANGEE) :CALL COLOR( 


1BW") iPRINT A* 


3280 RETURN 




3290 A*-"baa«d" 




3300 LOCATE (5+OFF+RR, RANGEE) iCALL COLOR( 


1BW")iPRINT A* 


3310 RETURN 




3320 At-"bNtd" 




3330 LOCATE (6+OFF+RR, RANGEE) iCALL COLDR( 


1BW">iPRINT A* 


3340 RETURN 




3350 Af-"bMBd" 




3360 LOCATE (6+OFF+RR, RANGEE) sCALL COLQR( 


1BW") : PRINT A* 


3370 RETURN 




3360 A*="baead" 




3390 LOCATE (6+OFF+RR, RANGEE) :CALL COLDR( 


1BW")iPRINT a* 


3400 RETURN 




3410 A*="be" 




3420 B*="ed" 




3430 LOCATE (6+OFF+RR, RANGEE) îCALL COLOR( 


1BW") sPRINT A*; 


3440 CALL COLOR ("OBW") : PRINT "7"i 




3450 CALL COLOR ( "1BW") iPRINT B* 




3460 RETURN 




3470 A*=" , baead" 




3480 LOCATE ( 7+OFF+RR, RANGEE ) î CALL COLOR ( 


1BW">!PRINT A* 


3490 RETURN 




3500 A*="beeed" 




3510 LOCATE < 7+OFF+RR, RANGEE >: CALL COLOR( 


1BW"):PRINT A* 


3520 RETURN 




3530 A*="beaed" 




3540 LOCATE (7+OFF+RR, RANGEE) :CALL COLOR ( 


IBW") sPRINT A* 


3550 RETURN 




3560 A*-"fgggh" 




3570 LOCATE ( 8+OFF+RR, RANGEE ): CALL COL DR ( 


1BW") (PRINT A* 


3580 RETURN 




3590 LOCATE ( 12+RR.5) :CALL COLOR C'IBb") sPRINT RPT* (CHR*( 105) ,MULT) 


3600 RETURN 




3610 ' — — — — — — "~BAS DE DOMINO ————— 




3620 LOCATE (12+RR, RANGEE) : CALL COLORC'IBt 


"):PRINT RPT*(CHR*(105),5) 


3630 RETURN 




3640 ! TRAITEMENT REPONSE 




3650 IF POSIOO THEN GOSUB 3680:RETURN 




3660 REP*=RP* 




3670 REP 1 =V AL ( REP* ) I RETURN 




3680 ' AFFICHAGE MARNING 1 






3690 CALL COLOR ("ORI ") iLOCATE (3,5) 
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